home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 20 / Cream of the Crop 20 (Terry Blount) (1996).iso / os2 / pine394.zip / bin / instpine.cmd next >
OS/2 REXX Batch file  |  1996-06-25  |  1KB  |  41 lines
  1. /* rexx:
  2.    Create a PineOS2 object for WPS
  3.  */
  4.  
  5. if value('HOME',,'OS2ENVIRONMENT')='' & value('PINEHOME',,'OS2ENVIRONMENT')='' then do
  6.   SAY 'You need to set the HOME or PINEHOME environment variable in CONFIG.SYS!'
  7.   exit 0
  8.   end
  9.  
  10. SAY
  11. SAY '------------------------------------------------------------'
  12. SAY 'This script creates a WPS object that invokes PineOS2'
  13. SAY 'For other steps you need to do to install PineOS2 correctly'
  14. SAY 'please read the file README.OS2 that accompanied the archive'
  15. SAY '------------------------------------------------------------'
  16. SAY
  17. SAY 'Is this what you wish to do? (Y/N)'
  18. pull YesNo
  19. if \ ((YesNo = 'Y') | (YesNo = 'y')) then exit 0
  20.  
  21. SAY 'Enter the number of rows you wish to make the PineOS2 window'
  22. SAY 'e.g. 25, 32, 40, 50 etc (default is 25)'
  23.  
  24. pull lines
  25.  
  26. if lines='' then lines=25
  27.  
  28. call RxFuncAdd 'SysLoadFuncs','RexxUtil','SysLoadFuncs'
  29. Call SysLoadFuncs
  30.  
  31. curdir=directory()
  32.  
  33. rc=SysCreateObject('WPProgram','PineOS2','<WP_DESKTOP>',,
  34.                    "EXENAME="curdir"\Pine.exe;PARAMETERS=-w "lines)
  35.  
  36. SAY 'Program object created.'
  37.  
  38. exit
  39.  
  40.  
  41.